﻿
Public Class FollowupInterview
    Inherits InterviewData

    Private _firstName As String
    Private _lastName As String
    Private _salutation As String
    Private _suffix As String
    Private _middleName As String
    Private _clientID As String
    Public Sub New()

    End Sub
    Public Sub New(ByVal data As InterviewData)
        If (Not IsNothing(data)) Then
            Me.AnswersText = data.AnswersText
            Me.QuestionsText = data.QuestionsText
            Me.TemplateID = data.TemplateID
        End If
     
    End Sub

    Public Property FirstName() As String
        Get
            Return _firstName
        End Get
        Set(ByVal value As String)
            _firstName = value
        End Set
    End Property

    Public Property LastName() As String
        Get
            Return _lastName
        End Get
        Set(ByVal value As String)
            _lastName = value
        End Set
    End Property

    Public Property Salutation() As String
        Get
            Return _salutation
        End Get
        Set(ByVal value As String)
            _salutation = value
        End Set
    End Property

    Public Property Suffix() As String
        Get
            Return _suffix
        End Get
        Set(ByVal value As String)
            _suffix = value
        End Set
    End Property
    Public Property MiddleName() As String
        Get
            Return _middleName
        End Get
        Set(ByVal value As String)
            _middleName = value
        End Set
    End Property

    Public Property ClientID() As String
        Get
            Return _clientID
        End Get
        Set(ByVal value As String)
            _clientID = value
        End Set
    End Property
End Class
